Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE22/TIPTRIX/LISTING3.PAS

Pascal/Delphi Source File | 1997-05-19 | 221 b | 8 lines

function Tform1.GetNotebookPage( Index : integer ): TNotebookTabs;
var
  S: string ;
begin
  S := 'nt' + TabbedNotebook1.Pages[Index];
  Result :=TNotebookTabs( GetEnumValue( TypeInfo( TNotebookTabs ), S ));
end;